10 ' Является ли число палиндромом?
20 INPUT "Введи целое число не более 10000"; B
30 IF B <> FIX(B) OR B < 0 OR B > 10000 THEN 20
40 A = B: INVERT = 0
50 WHILE A <> 0
60 INVERT = INVERT * 10 + A MOD 10
70 A = A \ 10
80 WEND
90 IF INVERT = B THEN PRINT "Палиндром" ELSE PRINT "Не палиндром"
100 END